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i eeeeeeeereeeeerrerereeeereeeeereeteetereterereeteeeeterenereeeeeeeeeeeeene 
it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


ie THIS i "kethe is FURNISHED UNDER A LICENSE AND MAY BE USED AND co tee 
ONLY IN ACCORDANCE THE TE 


!t TRANSFERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: onepokat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF iTS 


* 
. 
* 
. 
& 
© 
* 
* 
* 
H 0 1 & 
'# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 
* 
* 
* 
2 
* 
* 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* 

* 
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a 
FACILITY: Exec, Shareable routines to decode image header and sections 
ABSTRACT: 


This module contains the routines to retrieve and decode 
an image header and the image section descriptors. 


ENVIRONMENT: VAX/VMS Operating System 


AUTHOR: Bob Grosso, CREATION DATE: 16-Mar-1983 
MODIFIED BY: 
v03-010 MSHO0S1 Michael S. Harvey 20-May-1984 
Convert old format image name string to new tormat. 
v03-009 RSNOOES Michael S. Harvey 8-May-1984 


When converting x-Llinker image headers into a modern 
form, update the image IDs correspondingly. 


v03-008 MSH0041 Michael S. neheck 22-May-1984 
some aoe? to the bounds ghec ing code to qneure sai 
only valid images are run. neve checks filter obviou 
bad image headers and ten with bad ISD Lists. 
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v03-001 


1b-sepn198e O2:4:10 YAteT] BLigec32 v4.0-742 
Lyk0269 Lawrence J. Kenah 


31-Mar-1984 
Miscellaneous cleenye. 
Do not perform consistence sy A. Se TvPe 2 images. They are 
not necessarily pro uged iby by the Link 
Make sure that a primitive ence chee is ogrrorace on the 
IHD and ISD sizes before the buffer is copied. 


LJA0110 Laurie J. Anderson 6-Feb-1984 
hange the error messages returned from the a decode 
routines to be something more intelligent than “bad hdr’. 


wMC0001 Wayne Cardoza 44-Jan-1984 
Add support for cross-linker and V3 FT1 images. 


LJK0243 ence J. Kenah Sige: Pip 
Return IHD$Q _PRIVREOS of ail rivileg q ter old images, 
ones that do not contain a SYSVER fie 


Lyx0236 Lawrence J. Kenah 26-Jul-1983 
Fix code that transforms old image header into latest 
form of image header. 


LJK0229 Lawrence J. Kenah 12-Jul-1983 
Treat the alias and offset as words. Treat the ISD 
size as a signed word. 


LJK0223 Lawrence J. Kenah 66-Jul-1983 
Make IHD and ISD sizes into words so that the comparisons 
are made correctly. 
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RSBTTL ‘Definitions’ 
' 


INCLUDE FILES: 


LIBRARY ‘SYSS$LIBRARY:LIB.L32'; ! Define system data structures 
REQUIRE ‘LIBS: IMGMSGDEF .R32'; ! Get status code definitions 


; PSECT DECLARATIONS: 


PSECT 
CODE = YFSSSYSIMGACT (WRITE), 
PLIT = YFSSSYSIMGACT (WRITE, EXECUTE); 
1 
LITERALS 
LITERAL 
TRUE = 1 
FALSE = 6, 
IMG$SC_BLOCKSIZ = 512; 
1 
EXTERNAL REFERENCES: 
EXTERNAL LITERAL 
EXESC_SYSEFN : UNSIGNED (6); ! System event flag for Q10 Wait read 


FORWARD ROUTINE REFERENCES 


FORWARD ROUTINE 
CONVERT_XLINK; 


i] 
Define VMS block structures 


STRUCTURE 
BBLOCK CO, P, S, E; NJ = 


N 
(BBLOCK + 0) <P, S, E>; 


DEC Cope® IHD Get image Header 
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ZSBTTL nleeDE COE 1HD a t »'naoe Header’ 
GLOBAL we ga EN: IMGSBECODE 

CHAN, BLK  BUFADRA” PAD -BUFADR, VBN_ADR, OFFSET_ADR, HDRVER_ADR, ALIAS_ADR ) = 
++ 
FUNCTIONAL DESCRIPTION: 


: FORMAL PARAMETERS: 


' 
i 
i 
i 
' 
i Cha Channel on which image file is open 
i Blk "butadr Address of buffer to contain Ist block of image 
i Ihd_bufadr Address of buffer to sentem decoded IHD 
i VBN_adr Address of VBN to be set to 
Offset adr Address of Offset in which to return offset to Ist ISD 
SRPLICTY L pees 
i 
i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
COMPLETION CODES: 
i 
i SIDE EFFECTS: 
e NONE 
le 
BEGIN 
LITERAL 
IHDMAXSIZ = IHDSC_LENGTH + ! Maximum length for fixed portion of header 
IHASC_LENGTH + 
IHS$C_LENGTH + 
IHISC_LENGTH + 
IHPS$C_LENGTH , 
IHI1_S_IMGNAM = 16; ! Length of image name string prior to VMS V4 
LOCAL 
B_IHD : REF BBLOCK, ! Buffer IHD 
IAD : REF pel Ose 
10SB : BBLOCK (83, ' Quadword 10 status block 
HDR_INSERT, 
IH] _INSERT 
OFF2 : WORD, 
SIZE, 
STATUS; ! Status 
BIND 
V4_MAJORID = UPLIT SeASCHT 88.3 ' Major ID for VMS V4 images 
V4_MINORID = UPLIT (ZASCII'O5"), i Minor ID for VMS V4 images 
HEADER _VERSION = .HDRVER_ADR : 
AST WORD = .ALIAS_ADR Sienéo WORD, 
OFFSET = .OFFSET_ADR : WORD 
= ,VBN_ADR; 
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1/0 status block 
Buffer to read in to 


vuuvuvUYvUU 
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Number of bytes to read 
Virtual block number to read 


- VU TOM 


~" 


F_.STATUS 
HEN 

STATUS = ,JOSB (0,0,16,0); 
4 ATUS 


AAA AMAL OA OOOO ACCC 


' Read from first block 
Pick up final status 
“i ST 


VBN = 1; 
SIZE = IMGSC_BLOCKSIZ; i Read one block 
! 
Read first block 
STATUS = $Q10W ( 
= EXESC_SYSEFN, ' Event flag 
= .CHAN ' Channel 
= 10$ READVBLK, ' Read a virtual block 
= 10S 
LK 
IZ 
BN 
RETURN .STATUS; 
i 
4 
4 
4 


I 
T 
I 
THE 


BUFADR, 
B_IHD = .BLK_BUFADR: 


Image header 


AST_WORD = 7B_IHD CIHD$W_ALIAS); Contents of last word of header block 


L 

} 

; Process the image based upon which type of image it is. Screen 
out obvious image pretenders. 
C 

F 


CASE .LAST_WORD 
ROM IHDSC-MINCODE TO IHDSC_MAXCODE OF 


WMO DONOUFSWN “OVO ONOUFWN—O” 


CIHDSC_RSX, IHDSC_BPA, IHDSC_ALIAS) : 


BEGIN 
CHSMOVE CIMGSC_BLOCKSIZ, .B_IHD, .IHD_BUFADR); ! Copy image header to buffer 
HEADER_VERSION = 0; 
Ae SS$_NORMAL ; 


FruUw WIAA WI nono nononory cl ee cl el el el eld eld 
SRIFAE meron ° 


-oo 


4 
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CIHD$SC_NATIVE, IHDS$C_CLI] : 


BEGIN 


a eae CIHDSW_MAJORID] EQL IHX$K_MAJORID ! If Cross Linker format 


BEGIN 
HEADER_VERSION = IHDSC_GEN_XLNKR; 

STATUS-= CONVERT_XLINK~(.BCK_BUFADR, .IHD_BUFADR); 
OFFSET = .B_JHD CIHD$W_SIZEJ; 

RETURN STATUS; 
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' Check for a reasonable header record size and set of offsets. 
: sinely pat AL the offsets = regions they point to 
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! fall within the image header record. 


! 
OFFSET = .B_IHD CIHD$W_SIZE); 
IF (OFFSET -LSSU $BYTEOFF SET (IHDSL_LNKFLAGS)) 


(OFFSET GTRU IHDMAXSIZ) 
RETURN IMG$_IMG_SIZ; 
! Verify range of activation data offset 


OFF2 = 2B _1HD CIHDSW_ACTIVOFFI; 
IF (.OFF2-LSSU $BYTEOFFSET(IHD$L_LNKFLAGS)) 


-OFF2 + IHASC_LENGTH GTRU IHDMAXSIZ) 
RETURN IMG$_BADOF FSET; 
: Verify range of debug and global symbol table offset 
IF .B_IHD CIMD$W_SYMDBGOFF] NEQ 0 
THEN GIN 
OFF2 = .B_IHD CIHDSW_SYMDBGOFFI; 
IF ig0FFe LSSU $BYTEOFFSETCIHD$L_LNKFLAGS) ) 
(.OFF2 + IHSSC_LENGTH GTRU IHDMAXSIZ) 
RETURN IMG$_BADOFF SET; 
END; 


! Verify range of image ID data offset 


OFF2 = .B_IHD CIHD$W_IMGIDOFF); 
IF (.OFF2-LSSU SBYTEOFFSET(IHDSL_LNKFLAGS)) 


meget? + IHISC_LENGTH GTRU IHDMAXSIZ) 
RETURN IMG$_BADOF FSET; 

: Verify range of patch data offset 

IF .8_IHD CIHDSW_PATCHOFF] NEQ 0 

THEN 
OFF2 = .B_IHD CIHDSW_PATCHOFF); 
IF (.OFF2°LSSU $BYTEOF FSET (IHD$L_LNKFLAGS) 

(,OFF2 + IHPSC_LENGTH GTRU IHDMAXS1Z) 


RETURN IMG$_BADOFF SET; 


t] 
i Copy image header to buffer 
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' 
CHSMOVE (.8_IHD CIHDSW_SIZEJ, .B_IHD, .IHD_BUFADR); 


HDR INSERT = 0; ! Length by which header will be pried 
HEADER VERSION = IHDSC_GEN_F IXUP; i Default to most current’ 4 rips 
IHD = .I]HD_BUFADR; 


1 

! Calculate the degree by which the fixed portion of this header 

! differs from the current format of the fixed part of an image header. 

! Then, expand the fixed portion of the header by the required amount, 

! thus converting it to the current format as if the image had been 

relinked. 

IF SBYTEOFFSET CIHDSL_LNKFLAGS) GEQ .IHD CIHDSW_ACTIVOFFJ 

THEN ! Link Flags were not present 
BEGIN ! so insert a longword 
HDR_INSERT = 4; 

HEADER_VERSION = IHDSC_GEN_NATIVE; 


IF SBYTEOFFSET (IHDSL_SYSVER) GEQ .IHD CIHDSW_ACTIVOFFJ 
' System version and Ident were not pressent 


WNW PIPPI NINININININ 2 2 SS CO 
MEWN ("CO OONAULSWN (“OO ONOULSW Ss 
SOCOCSCOOSCSOSOSGSOSOSOOOSOOSOSOOSOSOOSOOSOOSOSOSOSOOSOOSOOOOOOOOoOO =a 


BS a ak ak ak Set ek ek ek eae eee Ue ee ee ee ee ee ee ee ee ee ee 
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4 
0 
iP 
18 
14 
15 
16 
8 
#9 iP BEGIN ! so insert two blank longwords 
38 1 IND 
4 § PRIV'LEGE_MASK = IHD CIHD$Q_PRIVREQS) : VECTOR (2); 
4) $e HDR_INSERT = .HDR_INSERT + 8; 
42 5 HEADER_VERSION = THD$C_GEN_LNKFLG; 
43 26 PRIVILEGE_MASK (0) = -T; ! Insure that image privilege mask 
nt) Hf oa Vek ee pee 1) = -1; ! indicates that all privileges are set 
46 9 : 
47 $3 IF SBYTEOFFSET (IHDSL_IAFVA) GEQ .IHD CIHDS$W_ACTIVOFFJ 
48 31 THEN ' Relative virtual address of fixup vector 
49 3 BEGIN ! not present so insert a blank longword 
50 3 HDR_INSERT = .HDR_INSERT + 4; 
51 34 HEADER_VERSION = THD$C_GEN_SYSVER; 
25 35 END; 
5 36 
54 37 
55 38 IF .HDR_INSERT NEQ 0 
56 39 THEN ! Shift non-fixed portion of {nage 
2 are BEGIN ! to insert missing part of fixed section 
59 Bees CHSMOVE ( 
60 44 (.IHD CIHD$W_SIZE] - .I1HD CIHDSW_ACTIVOFF)), ' Shift the portion beginning at the 
30) 0444 (,IHD + .IHD fed sry ha ee ' point located by the first offset 
66 bee? (,IHD + .IHD CIHDSW_ACTIVOFF] + .HDR_INSERT)); ! by the amount to be inserted 
362 baa? CHSFILL (0, .HDR_INSERT ! Fill the space created for the insert 
65 O44 IHD + THD CIHD$W_ACTIVOFF); 
$6 44 END; 
6 0450 
68 ett } 
69 452 ! Determine the extent that the image ident area differs in size from 
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! the current format. Expand the image ident area by the required 
! amount, thus converting to the current format without relinking. 


i] 
iHI_INSERT = 0; ! Assume no conversion required 
IF C. THD CIHD$W_MAJORIDJ LSSU -V4_MAJORID) 


IMGSDE CODE 4 
vou-005 De 


de ee ee ee Se ee ee 


-~oO 


(IHD CIHDSW_MAJORID] EQL .V4_MAJORID) 
(. IHD CIHD$W_MINORID] LSSU .V4_MINORID) 
THEN 
The et name string grew between VMS V3 and V4. Split the 


Lt at ty tet eet 
MEWN—OOONOULSWN oO 
PAEAEAPAAPAAAALMIMINIIGII 


3 
! 
3 : image ident area after the old image name string and expand 
3 the string to the current maximum size, zero filled. 
7 0470 BEGIN 
388 0471 IH] _INSERT = IHISS_IMGNAM = IHI_S_IMGNAM; ! Calculate size difference 
389 047 CHBMOVE ( 
90 047 (,IHD CIHD$W_SIZE] = (. IHD CIHD$W_IMGIDOFF] + IHI_S_IMGNAM)), 
91 0474 (,IHD + . IHD CIHDSW_IMGIDOFFJ + IAI_S_IMGNAM), 
9 0475 (,IHD + .IHD CIHDSW-IMGIDOFF] + IHISS_IMGNAM) ); 
39 0476 CHSFILL (0, .IHI_INSERT, 
394 0477 (,IHD + .IHD CIHDSW_IMGIDOFF] + IHI_S_IMGNAM) ); 
396 0479 : 
397 0480 ! Correct all the offsets to compensate for the insertion(s). Note that two of 
‘ the offsets locate optional parts of the image header and are only updated 
99 Bee if the associated areas are present in the image (offsets are nonzero). 
401 0484 IF (.HDR_INSERT NEQ 0) 
40 0485 
40 0486 (.IHI_INSERT NEQ 0) 
404 0487 THEN 
405 0488 


+ .IHI_INSERT; 


N 

IHD CIHD$W_SIZE) = .IHD CIHOSW 
IHD CIHDSW_LACTIVOFF] = .1HD CIHDSW 
IHD CIHD$SW_IMGIDOFFJ = .IHD CIHD$W 

tr IHD CIHDSW_SYMDBGOFF) NEQU 0 
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IHD CIHD$SW_SYMDBGOFF] = .IHD CIHDSW_SYMDBGOFF] + .HDR_INSERT; 

If - IHD CIHDSW_PATCHOFF] NEQU 0 

IHD CIHD$W_PATCHOFF] = .IHD CIHD$W_PATCHOFF] + .HDR_INSERT + .IHI_INSERT; 
END; 

pe runes SS$_NORMAL ; 


CINRANGE ,OUTRANGE] : 
RETURN IMG$_BADHDR; ! Unrecognizable or unsupported image type 
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v04- IMGSDECODE IHD Get Image 
s #627 051 TES; 
2. ee 
429 512 END; 
5E 
58 
10 BC 
50 
7E 
000000006 00 
57 
50 
57 
4A 
56 
1c = BC 
04 FFFF 8F 
0012 0012 0012 
50 
oc 3=«BC 66 
3130 = BF 
8 
E 
0000v CF 
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O7FC 00000 
C2 00002 
DO 00005 
0 00009 

€ 00000 
7C 00012 
D4 00014 
DD Be018 
DD 0001 
bp 00018 

C a 
9F 000 
DD Bn8 3 
DD 00025 
9A 00028 
FB 0002B 
dO 000 § 
F it 

C B00 
E9 Ooee 
DO 000 
a 

34 
00057 
DO 00059 

4 00060 

8 00061 

4 00068 

1 6A 
9) 
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Dd 7? 
FB 7c 
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CASE of image types 


IMGSDECODE_IHD 
TITLE 
. IDENT 
.PSECT 
BAA AEH 


V4_MAJORID= 
V4"MINORID= 
.EXTRN 


18: 


23: MOVC3 


3$: CMPW 


routine 


IMGSDECODE Get and Decode Image Header and Sect 
\V04-000\ 
YFSSSYSIMGACT,2 
\02\<0><0> : 
\ga\< ><0> : 
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{OSSD CODE HO, Save R2,R3,R4,R5,R6,R7,R8,— ; 
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#8, SP 
HDRVER_ADR, R8 
#1, aVBN_ADR 


#512, SIZE 
-(SP5 


-(SP) 
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=(SP) 
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#49 
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a SYSEFN, -(SP) 
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IMGSDE CODE Get and Decode Image Header and Sections 16-Sep-19 24 Ax-11 BLi 4.0-742 Page 10 
vos 000 IMGSDECODE_IHD Get Image Header 17-8¢8- 1386 96: 13; 33 SYS.SRCIJI efobe DE.832;1 . (3) 
“4 be ee 80 6 } MOV atte ee ADR : 0334 % 
v é ° 
8 88 B0 0 8 4$ MOVL STATUS, RO : o33e : : 
14 BC 66 BO ¢ 5$ MOVW (B_IHD), AagrF se _ADR : 0343 = 
0 14 BC Bi CMPW aOFFSET_ #327 + 0344 ie 
1F 00094 BLSSU  6$ : =] 
00D4 saa 14 BC B1 96 CMPW a0F FSET_ADR, #212 : 0346 
0 18 O9¢ BLEQU 7$ : ; 1 
50 O84D8CA4 F pO 0 H 6$: MOVL #139300004, RO : 0348 : ! 
50 02 As BO 0006 7S: MOVW 28. IHD) OFF2 + 035 | 
20 5 Bi AA CMPW 3 sC«OFF2, #32 + 035 g 4 
$2 F OOOAD Lssu. -9$ : 
51 3C OOOAF MOVZWL a R1 : 0355 
51 14 CO 0082 ADDL2. #20, R1 : 
00000004 = &F 51 D1 000B CMPL R1, #212 ; 
53 1A 000BC BGTRU 9$ : 
04 Ab B85 OOBE TSTW © 4(B_IHD) + 0361 
18 13 000C BEQL «8S ; 
50 04 Ad BO O0¢3 MOVW 4(B_IHD), OFF2 + 0364 
20 50 81 000C¢ CMPW 3 s«OFF2, #32 + 0365 
45 1F OOOCA BLSSU 9$ : 
51 50 3c 000cCc MOVZWL OFF2, R1 + 0367 
51 14 CO OOOCF ADDL2 #20, R1 F 
000000D4 aF 31 D1 000D2 CMPL R1, #212 : 
6 1A 00009 BGTRU 9$ : 
50 06 A6 BO 000DB 8$: MOVW  6(B_IHD), OFF2 > 0374 
20 50 B1 OOODF CMPW OFF 2, #32 : 0375 
gD 1F 000E2 BLSSU 9S : 
51 0 3C O00E4 MOVZWL OFF2 R1 : 0377 
51 50 Al 9E 000E7 MOVAB 80(R1), R1 : 
00000004 = &F 51 D1 OO0EB CMPL RI, #242 ; 
1D 1A b00F 2 BGTRU 9$ ; 
08 A6 8 O0F4 TSTW  8(B_IHD) : 0383 
20 13 000F7 BEQL 10$ : 
50 08 Ad BO 000F9 MOVW  8(B_IHD), OFF2 : 0386 
20 50 81 S00FD CMPW sé F2, #32 > 0387 
OF 1F 00100 BLSSU 9S ; 
50 0 3¢ 0198 MOVZWL OFF2, RO : 0389 
50 ec CC 001 ADDL2 #44, RO ; 
00000004 = &F 0 D1 00108 CMPL RO, #212 ; 
08 18 10F BLEQU og. ; 
50 08408C94 8F i 1 9$: ROVL #139299988, RO : 0391 
oc BC 66 $6 8 8119 10$:  MOVC3 (B_IHD) (B_1HD), @IHD_BUFADR : 0397 
9 D4 0011 CLRL HORI NSERT : 0399 
$8 Re 5 i ROVE Tab BUF ADR IHD ; rt 
36 85 NG 1 001 CMPW 2CiRD) #30 > 0410 
6 1A 001208 BGTRU 11 ; 
59 4 dO 001 MOVL #4, HDR_INSERT ; Q413 
68 BO 001 MOVW #2. (RBY : 0414 
02 A6é Bi 00133 11$: CMPW e({HD). #40 : 0417 
16 Ab 98 00139 ES VAS 25H RO : 0422 
28 08 CO 00130 ADDL #8, HOR, INSERT ; ge32 


Se a — eee 


4 
IMGSDE CODE Get and Decode Image Header and Sections 1b-5¢ -1984 92:41: AX-11 Bliss-32 V4.0-74 Pa 1 IMGS 
Miva titd INGSDE LODE THD Get Image Header 1 ~307 1382 29:73:40 YOys SRELIMeDE COME o3a04 e (4) v04- 
6 3 BO 0014 MOVW = so#3, (RB) 5 0425 . 4 
6 1 CE 0014 MNEGL #1, (RO) + 04 6 : 1 
06 A 1 ge 14 MNEGL #1, 4(RO) + 04 .3 
3 02 As C OO14A 12 MOVZWL 2(fHD), RO + 0430 | 
C 81 14 CMPW RO ThA : | 
6 1A 001 BGTRY 13$ : 3 4 
59 4 co 1 ADDL2 #4, HDR_INSERT : 0433 ey 
68 4 BO 001 : MOVW #4. (RBY + 0434 ; 1 
A D4 00159 138 CLRL =e R10 + 0438 
9 D3 158 TSTL | HDR_INSERT : es 
za 15D BEQL 14$ : : 1 
SA 06 1 F INCL R10 : as 
1 § 161 MOVZWL (IHD), R1 + 0443 ee 
1 C 0164 SUBL , RI : ; 4 
§ 1 00167 ADDL RO, IHD, R7 : 0444 ee | 
6947 6 51 28 1g MOVC3 R1. (R7S, (HDR_INSERT)CR7] + 0445 + 
59 6E $f C if movVCS #0, (SP), #0, ADR_INSERT, (R7) : 0448 : 
8 04 00176 14%:  CLRL  _‘IHI_INSERT + 0456 | 
FE78 = CF Oc AG 10 00 €D O18 CMPZV #0, #16, 12(I1HD), V4_MAJORID 3 0457 3; 7 
14 1F 00180 BLSSU-15$ : : 1 
FE6E CF OC Ab 10 90 ED 0182 CMPZV #0, #16, 12(IHD), V4_MAJORID + 0460 ae 
B 12 0018A BNEQ 16$ : : 1 
FE68 CF OE Ab 10 90 ED 0018C¢ CMPZV #0, #16, 14(IHD), V4_MINORID + 0462 | 
1 1E 00194 BGEQU igs : 4 
58 18 D0 00196 15$:  MOVL #24, IHI_INSERT + 0471 | 
50 06 Ad 3¢ 00199 MOVZ2WL 6(IHD), RO + 0473 ea | 
51 66 3C 0019D MOVZWL (IHD), RI : 4 
51 56 ce 901A0 UBL2 RO, Ri : Za 
51 10 C2 OO1A UBL2 #16, R1 : By 
57 56 50 C1 0016 ADDL3 RO, IHD, R7 + 0474 , 
28 «A? 10 A? 51 28 OO1AA MOVC3 R1. 16(R7), 40(R7) > 0475 a4 
58 00 3 . 09 C 90189 MOVCS #0, (SP), #0, IHI_INSERT, 16(R7) + 0477 : 
04 SA EB tt 16$:  BLBS R10, 17$ + 0484 | 
58 D3 001BA TSTL IHI_INSERT + 0486 4 
29 13 001BC BEQL 19$ : ee | 
50 6 3C OO1BE 17$ MOVZ2WL (IHD), RO + 0489 74 
50 9 (tO 001C1 ADDL2 HDR_INSERT, RO : 4 
64 50 8 Al 001C4 ADDWS IHI-INSERT, RO, (IHD) : | 
02 A6 59 AO 0018 ADDW2 HDRTINSERT. 2({HD) : 0490 4 
06 Ab 59 ad 001C ADDW2 HDRTINSERT, 6(IHD) : 0491 | 
06 Ab B5 0010 TSTW  4(IAD) : 0493 me 
94 1 01D EQL 18$ : ‘ ie 
04 Ab 9 ad 0010 ADDW2 HDR_INSERT, 4(IHD) + 0495 
50 08 A6 3C 00109 18$:  MOVZWL BCIAD), RO : 0497 | 
1 1DD BEQL 9$ : j 
50 cO 0010F ADDL2 HDR_INSERT, RO : 0499 .4 
08 Ab 50 8 Al 1Ee ADDWS IHI-INSERT, RO, 8(IHD) : 2a 
50 01 DO OO1E7 19$:  MOVL #1,7RO : 9503 .~ 4 
4 OO1EA RET ; 051 : 
; Routine Size: 491 bytes, Routine Base: YFSSSYSIMGACT + 0008 : } 
+ am | 
$ | 
24 


; 430 0513 1 


IRE SRE CODE Get and Decode | me Header and Sections r ees p- 138% 9: 4}: 19 AX-11 Bliss-32 V4.0-74 Page 12 
v04- IMGSGET_NEXT_ISD Get Image Section Descriptor -Sep-1984 SYS.SRCJIMGDECODE .B832; (4) 
3; 6 ¢ 14 1 2SBTTL ‘IMGSGET ery ISD st , noes Section Descriptor’ 

3 § 15 1 GLOBAL ROUTINE IMGSGET_NEXT 

$ 2 ¢ 1 1 ( CHAN, BLK_BUFADR, THD XBOFADR, VBN_ADR, OFFSET_ADR, ISD_BUFADR, HEADER_VERSION ) = 
: 436 18 1 !44 

; : 233 : FUNCTIONAL DESCRIPTION: 

: 439 2 1 | FORMAL PARAMETERS: 

: 441 5 i 1 Channel on which image file is op 

: «44 0526 1! gee _bufadr Address of buffer which contains” block of image header 
: 44 b2 . 3 Ihd-bufadr Address of buffer containing decoded IH 

: 4464 § 1! VBN- adr Address of VBN in blk_bufadr 

: 445 ge 1! Offset adr Address of Offset to ISD 

; rr | Be 8 ! 1SD_bufadr Address of buffer to contain decoded ISD 

: 448 0530 1! IMPLICIT INPUTS: 

ee eT atten 

: 451 05 5 1 | IMPLICIT OUTPUTS: 

: 488 bass | i a 

: 454 0536 1 i ROUTINE VALUE: 

; 455 B33 1 ! COMPLETION CODES: 

pees be 

: 458 0540 1 SIDE EFFECTS: 

; 459 0541 1! NONE 

; 460 b2%6 73 

; 461 054 1 !-- 

3 186 0544 «1 

: O82 Oece 5 EBCAL 

> 465 bec9 10SB : BBLOCK (8], ! Quadword 10 status block 

; 466 0548 B_ISD : Bee BBLOCK, ! ISD is header block buffer 
: 467 0549 Sp : REF BBLOCK, 

3 re 3 Bees 5 : SIGNED WORD, 

: 470 053 STATUS; ! Status 

: Oh 6384 5 BIND 

; 138 0555 IHD = - IHD BUF ADR : BBLOCK, 

: 4676 556 OFFSET = -OF FSET ADR : WORD, 

> 475 337 VBN = .VBN_ADR; 

: 438 325 5 

: $78 3269 Validate that offset and VBN are reasonable 

: 480 368 if .OFFSET GEQU 

3 $3) 56 (IF .VBN EQL 1 

3; 4 § 564 THEN IMGSC_BLOCKSIZ = 2 

3 re 2? THEN ELSE IMG$C~BLOCKSIZ) 

: is 367 RETURN IMG$_ISD_OFF; 

gh 569 IF .VBN GTR .IHD CIHD$B_HDRBLKCNT) 

; 488 570 THEN 


Pom of. OA Om OO AR ROPROIROARIAIARIARIRIAIAIAIAIPIAIPIAIAIAIAIAIPIAINININININIAIAIIAIIIID dd ed et ed od et ed 8d td od 
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IMGSDE CODE Get and Decode Image Header and Sections 18- ep-1984 02:41: AX-11 Bliss-32 V4.0-74 

rita tty IMGSGET_NEXT_1ISD Get Image Section Descriptor 1 ~30 71382 9g:43:49 SYS.SRC Laepecoe 93001 

; 489 7 RETURN IMG$_ISD_VBN; ; 
i $38 ae a 2 
; 138 fe ! Get next ISD : 
; 494 18 ¢ G.1SD = .BLK BUFADR + OFFSET: 2 
> 495 3 1SD_S1Z = .B-1SD CISD_W_SIZE): : 
: 438 ares : 
: rhs 03 See whether offset points off the block and we need to read the next block 

; 200 03 é if .1SD_S$1Z EQL -1 

; 501 THEN ' Read next block 

3 208 0584 BEGIN 

3 ae? B28? i +1; ! Increment VBN 

: 205 0367 SIZE = IMG$C_BLOCKSIZ; 

: 207 P 0589 STATUS = $010W 

: 509 P 0591 EFN = EXESC_SYSEFN, ! Event flag 

; 510 P Bag HAN =. ' Channel 

: 511 P 059 FUNC = 10$ READVBLK, i Read a virtual block 

3 218 P 0594 1088 = I0S6, ' 1/0 status block 

s $1 P 3232 Pl = .BLK_BUFADR, ! Buffer to read in to 

: 514 Pp 296 P2 = .SIZE, ' Number of bytes to read 

c 39 P 059 z ' Virtual block number to read 

: 318 $399 ; 

: 318 9600 IF .STATUS 

: 520 060 STATUS = .10SB [0,0,16,0); ! Pick up final status 

3 2s! eet cen” - STATUS 

; 328 0605 RETURN .STATUS; 

: 525 be07 B_ISD = .BLK_BUFADR; 

; 326 0608 1SD_SIZ = .B-1SD C1SD_w_SIZE); 

; i Bend ae EQL -1 ' Trap consecutive ‘wrap’ ISDs 

5 61g RETURN IMG$_INCONISD; 

s $31 1 

3 3 14 END; 

3 1? 

; HH O61? See whether there are any ISDs left 

: 33 8 iF .ISD_SIZ EQL 0 

; 0 THEN ' No more ISDs left 

3 39 1 RETURN IMG$_ENDOF HDR; 

i a 

: 4 4 Validate that the ISD size is reasonable 

: 544 6 IF (.1SD_SIZ LSS ISD$C_LENDZRO) 

3; 545 OR 


H 4 
IMG ODE Get and Decode Image Header and Sections 16-Sep-1984 241: AX-11 -74 
rivets INGSCET NEXT ISD Ber image Section Descriptor 12286871 382 96:93:48 SYS. sredin HM ae Senet (a3 


z 


v04 
; F reg 150-812 GTR 1SD$C_MAXLENGLBL) ; 
i 348 RETURN IMG$_ISD_SIZ; ; 
: re ' ; 
; 1 . 4 Make sure that ISD doesn't attempt to wrap around to the next block ; 
: § 635 2 iF (. OFFSET + 18D D Siz) GTRU ; 
; 4 . (IF .VBN Ps 
; 555 : THEN Inese “BL OCKSIZ = 2 : 
: 328 5 ELSE Inese -BLOCKS1Z) : 
; 28 : RETURN IMG$_INCONISD; : 
: 560 ; ISD = .1SD_BUFAD ; 
; 561 : CHSMOVE (.7SD te -8_ISD, .1SD); ! Copy from block to ISD buffer ‘ 
; 6¢ bh Orrsere . [OFFSET + .1SD_Siz: : 
; 56 645 3 
; 564 . § : 3 
: 65 . Don't use page fault cluster size for cross-linker images : 
; ef ; IF HEADER. VERSION EQL IHDSC_GEN_XLNKR 2 
i 369 ISD C1SDSB_PFC = 0; : 
: $71 ; 
: y 3 Some V3 images use IHDSL_IAFVA to identify the fixup vectors ‘ 
; if 6 IF ;NEADER_ VERSION EQL IHDSC_GEN_F 1XUP : 
i $76 8 IF (.1SD CISDSV_VPN) * 512) EQL .1HD CIHDSL_IAFVA] : 
; a .1SD CISDSV_VPN} NEQ 0 ; 
: 579 1 THEN ; 
3 380 ; ISD CISD$V_FIXUPVEC) = 1; : 
: 5 RETURN SS$_NORMAL; ; 
; 388 bees END; ! IMGSGET_NEXT_ISD routine : 


O3FC 00000 ENTRY tecnse NEXT_ISD, Save R2.R3.R4,R5,R6,.R7.- ; 0515 
08 ¢ SUBL2 SP : 

3 0c AC OD 8 i MOVL Tab BUFADR, R9 : 0555 

: 146 AC D MOVL OFFSET_ADR, RB : 0556 

10 ac D MOVL VBN_ADR, RO ; 7 

01 D 1 CMPL (Rey, af : 0563 
2 00014 BNEO : 

50 O1FE f ¢ 16 ROY ZWL #510, RO + 0564 

5 0200 8F 3C 0001D 1$: MOVZ #12 RO : 0563 
50 6& 1 9 FD 2s: CMP2V , #16, (RB), RO : 
F BLSSU $$" : 

50 084D8¢B4 «BF OO 9 VL 4139300020, RO : 0567 


WeSagge 


Get and Decode Image 
ERGSCET NEXT 15D Get 
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“heen $e on Descriptor 1b-se 300-1 3h 96: 13: ig 
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. - #8, 16(R9), (R2) 
#139300028, RO 


(RB) 
BLK buPxaR B_ISD 


§ 
BLK_BUFADR 
-(SP) 
Ke 
#4 
sti SYSEFN, -(SP) 
Q10w 
STA 33 
jose. at Ae 
STATUS, 6$ 
BLK_BUFADR, B_ISD 
(B ISD), 18p S12 
fast & 
$D_$12 
#139298368, RO 
SD_SIZ, #12 
D_SIZ, #64 
1139300036, RO 
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IMG ODE Get and peced e@ Image Header and Section 1b-se p-1 74 AX-11 Bliss-32 V4.0-74 Pa 16 IMGS 
Mivettitd IMGSGET_NE “1sD t Image on socertoter 14-5 p19 382 9¢: 13 32 SYS.SRCJI weoetobe o3e04 of a) v04~ 

01 1¢ at : 4 CMP HEADER VERSION, ee 7 0649 : 

0 8 BNE $ 3 ° 

07 Ab 9 A CLRB (ISD) : 0651 : 

05 ¢ AC } E 15$: cnPL 4 ADER_ VERSION, #5 ; 0656 : 

50 04 As 1 6 5 i EXTZv #0, + #31, 4 4(1SB), RO : 0658 : 

5 5 F ASHL 3 ° 

2c (OA 0 p F CMPL ~=sséRRO,, etre) : : 

¢ BNEG 198 ; : 

00 04 Ab 15 : F CMBZV #0, #21, 4(1SD), #0 ; 0660 ; 

09 Ag 4 i 1 BISB2 #4, 9(ISD) : $62 : 

5 1 p 10F 16$: MOVL 1; RO : : 

4 00112 RET + 0665 F 

; Routine Size: 275 bytes, Routine Base: YFSSSYSIMGACT + 01F3 . 


; 584 0666 1 
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Decode Image Header and Sections 16-Sep-1984 02:41: AX-11 Bliss-32 V4.0-74 
XLINK Convert a sreobet sakes Tnage head 12286871 382 96:93:48 Heys .SRe IngDe cove 830+ 
ZSBTTL. ‘CONVERT _XLINK C t “linker i h : 
ROUT IN CONVERT niin onvert a cross-linker image header to standard format 


BLK_BUFADR ~: REF S$BBLOCK, 
IHD : REF SBBLOCK ) = 


'e4 

: FUNCT Lona, DESCRIPTION: 

: An image header produced by the cross-linker is converted to the 
standard format. 


i FORMAL PARAMETERS: 


Blk_bufadr Address of buffer which contains first block of image header 
Ihd Address of buffer to contain decoded IHD 


i IMPLICIT INPUTS: 
i NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 
NONE 


' 

' 

' 

' 

' 

' 

' 

4 

' 

' 

i IMPLICIT OUTPUTS: 
; NONE 

| 

1 

' 

' 

i SIDE EFFECTS: 
NONE 

' 


BEGIN 
IND 
PRIV_MASK = IHD CIHD$Q_PRIVREQS] : VECTOR (2), 
IHD_ACT_ADR = .IHD + IADSK_LENGTH : VECTOR 
IHX"ACTADR = BLK_BUFADR CIHX$Q_STARTADR] : VECTOR (2), 
IHS = .JHD + IHDSK_LENGTH + IHASK_LENGTH : S$BBLOCK; 


Zero the one page buffer which will contain decoded IHD 
CHSFILL (0, 512, .IHD); 

| Fill in offsets and directly transportable fields 

iHD CIHD$W_ACTIVOFF) = IHDSK_LENGTH; 
IHD CIHD$W_SIZEJ) = IHD$K_LENGTH + IHASK gf + IHSS$K_LENGTH; 
THD IHD$B-HDRBLKCNT) = TBLK_BUFADR CIHRS$B_HDRBLKCNTI; 

i Convert image ID fields 


] 
HD CIHD$W_MAJORID) = IHDSK_MAJORID; 
HD CIHD$WIMINORID) = IHDSK-MINORID; 


Assume all privileges 
RIV_MASK FO}= “1; 
RIV_MASK (1J= -1; 


I 
I 
1 
i 
; 
P 
P 


; Routine Size: 95 bytes, Routine Base: YFSSSYSIMGACT + 0306 


IMGSDE CODE Get and Decode Image Header and Section 1b-5¢ Sep-1 74 AXx-11 iss-32 V4.0-74 p 
ives tts CONVERT_XLINK Convert a cross-linker Tnage head 1 3007138 9G 13 48 YS¥s| SREIMGDE CODE b3oe4 ~~ B 
: 643 724 ' 
3 ere i ‘ Add image activation vata 
: 7 iHD_ACT_ADR [0] = .IHX_ACT_ADR [0]; 
; ec f § {HD “ACT-ADR FS rt  IHXZACTIADR £93: 
: 649 g 0 Check for DEBUG data 
: i , j if = Nie BUFADR CIHX$W_MINORID] GEQ IHX$K_MINORID1 
: 65 734 BEG 
: 654 735 IHD “twos SYM BGOF FI = IHDSK_LENGTH + IHASK_LENGTH; 
; 655 7 $ 1HD ADR (2 K_BUF AD DR mathe TFRADR3]; 
; 626 7 1HS~ Fins "DSTVBN]” KatK. 8 FADR pinRStDstve $ 
: 65 o7 8 IHS CIHSS$L-GST ven) = ‘BLK “BUEADR HxSt GSTVBN) : 
; 658 7 IHS CIH Hesh- “DSTBLK = .BLR _BUFADR CIHX B_dstBLks) : 
: 659 0740 IHS CIHSSW Be TRECS -BLK-BUFADR CIHX$W~GSTRECS) ; 
3 pe¢) 152 END; 
: 66 o7e§ RETURN SS$_NORMAL; 
: 66 0744 1 END; 
OFFC 00000 CONVERT_XLINK: 
.WORD Save R2,R3.R4,R5,R6,R7,RB,R9,R10,R11 : 0668 
56 08 aC DO 00002 MOVL R6 : 0700 
58 14 A6 YE 00006 MOVAB 20(R6), R11 : 
58 30 Ad YE OOO0A MOVAB 48(R6) : 0701 
57 06 ac 00 9900 MOVL BLK_BUFADR, R7 : 0702 
SA 04 A? 9E 0001 MOVAB 4(R7) : 
59 44 Ab OE 9001 MOVAB 68 (R65 + 0703 
0200 8F 00 6E 09 2¢ 00014 movcS #0, ¢sb)® #0, #512, (R6) : 0707 
66 00300058 8F DO 000 2 MOVL #3145816, (R6) : 071 
10 A A? 90 000 MOVB = 2¢R7) 18<R6) : 071 
0C Ab 353032 BF DO 0002E MOVL  #892351024, 12(R6) : 071 
6B 1 CE 000 MNEGL #1, (R11) : 07 ; 
04 AB 1 ce 00 MNEGL #1, 4(R11) : 07 
6 6A 7D 00030 mova (R10), (RB) : 0727 
3130 BF OE A7 Bi 00040 CMPW 3S s«14(R7$, #12592 : 0732 
13 «1F 0046 BLSSU.'1$ ; 
04 Ab 44 BF 98 4 MOVZBW #68 4(RG) : 0735 
08 AB 4 A? p 004 MOVL  52(R7), 8(RB) : 07 
69 8 a7? 7D 00 $2 MOVO 40(R7); (RO) : 07 
08 a9 0 a7 dO 0005 MOVL 48(R7); 8(R9) : 0739 
50 01 DO $38 1$: MOVL #1, RO 3 oF 
04 0005 RET > 0744 
| 


IMGSDE CODE Get and Decode Image Header and Sections $ep-1984 02:4 AX-11 Bliss-32 V4.0-74 Page 19 IMG$ 
rived CONVERT_XLINK Convert a cross-linker image head b-Sen-1984 96 13: 42 SYS.SRCJI weve Cove o32.4 ’ (6) v04- 
: 665 745 1 END ‘End of module IMGDECODE . 
; 666 ik 0 ELUDOM : 
PSECT SUMMARY ; 
; Name Bytes Attributes ; 
: YFSSSYSIMGACT 869 NOVEC, WRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
: 4 
s 4 
5 § 
; Library Statistics : , 
BP ey al eR Symbols -<----=- Pages Processing | 
; File Total Loaded Percent Mapped Time : | 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 63 0 1000 00:01.8 : r 
3; 4 
s 4 
; 4 
; «4 
: (4 
oan | 
; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: IMGDECODE/OBJ=0BJ$: IMGDECODE MSRC$: IMGDECODE/UPDATE=(ENHS$: IMGDECODE) ; | 
3 Size: 861 code : 8 data bytes : 4 
: Run Time: 00:1 $ 4 
3; Elapsed Time: 00: $370 ; 4 
3: Lines/CPU Min: 2348 : 4 
3 Lexemes/CPU-Min: 16064 : 4 
; nonecy Used: 205 pages 3 64 
; Compilation Complete : , 
: 4 
s 4 
s.§ 
; 4 
¢ 4 
my A 
¢ 4 
- § 
s 4 
e 4 
so 
g 4 
3; (4 
s 4 
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